Public Class frmProgressBar

    Private Sub frmProgressBar_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'With PharmProgressBar
        '    .Show()
        '    .Minimum = 1
        '    .Maximum = 200
        '    .Increment(10)
        '    .Step = 5
        '    .MarqueeAnimationSpeed = 20
        '    .Style = ProgressBarStyle.Marquee
        'End With
        ShowProgressbar()
    End Sub
    Public Property MinimumValue() As Integer
        Get
            Return PharmProgressBar.Minimum
        End Get
        Set(ByVal value As Integer)
            PharmProgressBar.Minimum = value
        End Set
    End Property
    Public Property MaximumValue() As Integer
        Get
            Return PharmProgressBar.Maximum
        End Get
        Set(ByVal value As Integer)
            PharmProgressBar.Maximum = value
        End Set
    End Property
    Public Property StepValue() As Integer
        Get
            Return PharmProgressBar.Step
        End Get
        Set(ByVal value As Integer)
            PharmProgressBar.Step = value
        End Set
    End Property
    Public Property MarqueeAnimationSpeedValue() As Integer
        Get
            Return PharmProgressBar.MarqueeAnimationSpeed
        End Get
        Set(ByVal value As Integer)
            PharmProgressBar.MarqueeAnimationSpeed = value
        End Set
    End Property
    Public Sub IncrementValue(ByVal value As Integer)
        PharmProgressBar.Increment(value)
    End Sub
    Public Sub ShowProgressbar()
        PharmProgressBar.Show()
    End Sub
    Public Sub HideProgressbar()
        Me.Close()
    End Sub
    Public Sub SetProgress(ByVal iVal As Integer)
        PharmProgressBar.Value = iVal
        Me.Refresh()
    End Sub
End Class